home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / misc / emu / QDOS2.lha / QLsource / ROMsrc / SYS / BASICFIX_asm < prev    next >
Text File  |  1995-08-27  |  589b  |  58 lines
  1. BAS_MODE:
  2.     bsr    CA_GTINT
  3.     bne.s    BAS_MDX
  4.  
  5.     movem.w    0(a6,a1.l),d1-d2
  6.     subq.w    #2,d3
  7.     beq.s    BAS_MD1
  8.  
  9.     moveq    #-1,d2
  10.  
  11.     addq.w    #1,d3
  12.     bne.s    BAS_BP
  13.  
  14.     andi.w    #$0108,d1
  15.  
  16. BAS_MD1:
  17.     cmpi.w    #$0100,d1
  18.     bne.s    BAS_MD2
  19.  
  20.     moveq    #8,d1
  21.  
  22. BAS_MD2:
  23.     moveq    #$10,d0
  24.     trap    #1
  25.  
  26. BAS_MDX:
  27.     rts
  28.  
  29. BAS_BP:
  30.     moveq    #ERR.BP,d0
  31.     rts
  32.  
  33. BAS_NET:
  34.     jsr    GET_INT2(pc)
  35.     bne.s    L075C4
  36.  
  37.     addq.l    #2,BV_RIP(a6)
  38.     move.b    1(a6,a1.l),d1
  39.     ble.s    BAS_BP
  40.  
  41.     moveq    #MT.INF,d0
  42.     trap    #1
  43.     move.b    d3,SV_NETNR(a0)
  44.  
  45. L075C4:
  46.     rts
  47.  
  48. BEEPING:
  49.     cmpa.l    a3,a5
  50.     bne.s    BAS_BP
  51.  
  52.     bsr    L08162
  53.     moveq    #MT.INF,d0
  54.     trap    #1
  55.     moveq    #1,d1
  56.     and.b    SV_SOUND(a0),d1
  57.     bra    L08186
  58.